E (SETQ $PRINT-BUDGET-MONTHLY nil) READ (SALARY IN DSK (PRO HE)) READ (hon82b IN DSK (PRO HE)) BUDGET total (hon1 OUT DSK (PRO HE))